home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group99a.txt / 000052_icon-group-sender _Thu Mar 18 08:39:53 1999.msg < prev    next >
Internet Message Format  |  2000-09-20  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id IAA00942
  4.     for icon-group-addresses; Thu, 18 Mar 1999 08:34:59 -0700 (MST)
  5. Message-Id: <199903181534.IAA00942@baskerville.CS.Arizona.EDU>
  6. X-Authentication-Warning: pandora.cs.utsa.edu: rpereda owned process doing -bs
  7. Date: Wed, 17 Mar 1999 19:25:50 -0600 (CST)
  8. From: Ray Pereda <rpereda@cs.utsa.edu>
  9. X-Sender: rpereda@pandora
  10. To: "Alan B. Saichek" <abs@sgi.com>
  11. cc: icon-group@optima.CS.Arizona.EDU
  12. Subject: Re: Icon Programming Language FAQ: Y2K ?
  13. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  14. Status: RO
  15.  
  16. On Wed, 17 Mar 1999, Alan B. Saichek wrote:
  17.  
  18. > Sorry if I've missed any discussion on Y2K and Icon previously.
  19. > 
  20. > Is there a general observation about this topic? Might go on the FAQ?
  21.  
  22. I wrote a program to automatically fix this bug and have already 
  23. been testing it.  Below is the code: 
  24.  
  25. # Filename: y2k.icn
  26.  
  27. procedure main()
  28.    while write(map(read(), 'y', 'k'))
  29. end
  30.  
  31. Here is the output when I run it on a calendar program:
  32.  
  33. $ cal 1999 | y2k
  34.                                1999
  35.  
  36.       Januark                Februark                March
  37. Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa
  38.                 1  2       1  2  3  4  5  6       1  2  3  4  5  6
  39.  3  4  5  6  7  8  9    7  8  9 10 11 12 13    7  8  9 10 11 12 13
  40. 10 11 12 13 14 15 16   14 15 16 17 18 19 20   14 15 16 17 18 19 20
  41. 17 18 19 20 21 22 23   21 22 23 24 25 26 27   21 22 23 24 25 26 27
  42. 24 25 26 27 28 29 30   28                     28 29 30 31
  43. 31
  44.  
  45.        April                   Mak                    June
  46. Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa
  47.              1  2  3                      1          1  2  3  4  5
  48.  4  5  6  7  8  9 10    2  3  4  5  6  7  8    6  7  8  9 10 11 12
  49. 11 12 13 14 15 16 17    9 10 11 12 13 14 15   13 14 15 16 17 18 19
  50. 18 19 20 21 22 23 24   16 17 18 19 20 21 22   20 21 22 23 24 25 26
  51. 25 26 27 28 29 30      23 24 25 26 27 28 29   27 28 29 30
  52.                        30 31
  53.  
  54.         Julk                  August               September
  55. Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa
  56.              1  2  3    1  2  3  4  5  6  7             1  2  3  4
  57.  4  5  6  7  8  9 10    8  9 10 11 12 13 14    5  6  7  8  9 10 11
  58. 11 12 13 14 15 16 17   15 16 17 18 19 20 21   12 13 14 15 16 17 18
  59. 18 19 20 21 22 23 24   22 23 24 25 26 27 28   19 20 21 22 23 24 25
  60. 25 26 27 28 29 30 31   29 30 31               26 27 28 29 30
  61.  
  62.  
  63.       October                November               December
  64. Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa   Su Mo Tu We Th Fr Sa
  65.                 1  2       1  2  3  4  5  6             1  2  3  4
  66.  3  4  5  6  7  8  9    7  8  9 10 11 12 13    5  6  7  8  9 10 11
  67. 10 11 12 13 14 15 16   14 15 16 17 18 19 20   12 13 14 15 16 17 18
  68. 17 18 19 20 21 22 23   21 22 23 24 25 26 27   19 20 21 22 23 24 25
  69. 24 25 26 27 28 29 30   28 29 30               26 27 28 29 30 31
  70. 31
  71.  
  72. -ray
  73.  
  74.